home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue40 / Alfresco / UVfyChkD.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-10-31  |  885 b   |  49 lines
  1. unit UVfyChkD;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Label1: TLabel;
  12.     Edit1: TEdit;
  13.     CheckBox1: TCheckBox;
  14.     CheckBox2: TCheckBox;
  15.     Button1: TButton;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     procedure Edit1Change(Sender: TObject);
  19.     procedure Button1Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  25.  
  26. var
  27.   Form1: TForm1;
  28.  
  29. implementation
  30.  
  31. uses
  32.   AAVfyChk;
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TForm1.Edit1Change(Sender: TObject);
  37. begin
  38.   CheckBox1.Checked := false;
  39.   CheckBox2.Checked := false;
  40. end;
  41.  
  42. procedure TForm1.Button1Click(Sender: TObject);
  43. begin
  44.   CheckBox1.Checked := ValidateCreditCardNumber(Edit1.Text);
  45.   CheckBox2.Checked := ValidateISBN(Edit1.Text);
  46. end;
  47.  
  48. end.
  49.